home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Testers / Gen-expansion Tester < prev    next >
Lisp/Scheme  |  1998-10-26  |  568b  |  26 lines
  1. (def-orchestra 'orchestra
  2.    all-instruments (piano)
  3. )
  4.  
  5. (setq symbols
  6.       (gen-expansion-parallel 4 
  7.            (symbol-repeat 6 '(a b c b c d c d e d e f e f g))
  8.            (list '(a b c d c b a)
  9.                  (symbol-inversion 'a '(a b c d c b a)))))
  10.  
  11. (def-section sect-a
  12.    default
  13.       zone (lsym-correct (* (length symbols) (get-ratio '1/16 :ratio)))
  14.       tonality (activate-tonality (melodic-minor c 4))
  15.       length '(1/16)
  16.       velocity '(64)
  17.    piano
  18.       symbol symbols 
  19. )
  20.  
  21. (midiport :printer)
  22.  
  23. (play-file-p "my song"
  24.    all-instruments '(sect-a)
  25. )
  26.